home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopxedii.xedit < prev    next >
Encoding:
Text File  |  1992-12-18  |  705 b   |  27 lines
  1. /*
  2.  *        Name: GOPXEDII XEDIT (was ITEMINFO XEDIT)
  3.  *              display gopher "item info" in the XEDIT message area
  4.  *      Author: Rick Troth, Rice University, Information Systems
  5.  *        Date: 1992-Dec-10
  6.  *
  7.  *              This macro is part of CMS Gopher.
  8.  */
  9.  
  10. Parse Source . . . . . arg0 .
  11.  
  12. 'COMMAND CMS GLOBALV SELECT GOPHER GET PROGID'
  13. If progid = "" Then Do
  14.     /*  You're not running CMS Gopher  */
  15.     'COMMAND CMS XMITMSG 542 ARG0 (VAR'
  16.     'EMSG' message.1
  17.     Exit
  18.     End
  19.  
  20. 'COMMAND CMS GLOBALV SELECT GOPHER GET ITEM'
  21. Parse Var item . '05'x path '05'x host '05'x port '05'x .
  22. If host ^= "" & port ^= "" & path ^= "" Then
  23.     'COMMAND MSG' host || ':' || port || ':' || path
  24.  
  25. Exit
  26.  
  27.